home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Everything / DModalRadiosData.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  2.5 KB  |  163 lines  |  [TEXT/CWIE]
  1. { DModalRadiosData.p -- data container class for Everything}
  2.  
  3. Unit DModalRadiosData;
  4. Interface
  5.  
  6. Uses
  7.     Types,
  8.     OSUtils,
  9.  
  10.  
  11.     AMSignaler;
  12.  
  13. const
  14.     idRadioGroup2        = longint ('Rad2');
  15.     idGroup2        = longint ('Gro2');
  16.     idGraphic3        = longint ('Gra3');
  17.     idBevel2        = longint ('Bev2');
  18.     idText2        = longint ('Tex3');
  19.  
  20. type
  21.     {----------}
  22.     DModalRadiosData    = object (AMSignaler)
  23.  
  24.     {data members}
  25.         mRadioGroup2:        SInt16;
  26.         mGroup2:        SInt16;
  27.         mGraphic3:        SInt16;
  28.         mBevel2:        SInt16;
  29.         mText2:        SInt16;
  30.  
  31.     {methods}
  32.         Procedure Initialize; Override;
  33.  
  34.         Function  GetRadioGroup2: SInt16;
  35.         Procedure SetRadioGroup2    (inValue:        SInt16);
  36.         Function  GetGroup2: SInt16;
  37.         Procedure SetGroup2    (inValue:        SInt16);
  38.         Function  GetGraphic3: SInt16;
  39.         Procedure SetGraphic3    (inValue:        SInt16);
  40.         Function  GetBevel2: SInt16;
  41.         Procedure SetBevel2    (inValue:        SInt16);
  42.         Function  GetText2: SInt16;
  43.         Procedure SetText2    (inValue:        SInt16);
  44.     end;
  45.  
  46. {----------}
  47. Function NewDModalRadiosData: DModalRadiosData;
  48.  
  49. {----------}
  50. Implementation
  51.  
  52. {----------}
  53. Function NewDModalRadiosData: DModalRadiosData;
  54. var
  55.     data:        DModalRadiosData;
  56. begin
  57.     data := nil;
  58.     New (data);
  59.     if data <> nil then begin
  60.         data.Initialize;
  61.     end;
  62.     NewDModalRadiosData := data;
  63. end;
  64.  
  65. {----------}
  66. Procedure DModalRadiosData.Initialize;
  67. begin
  68.     inherited Initialize;
  69.  
  70.     mRadioGroup2 := 0;
  71.     mGroup2 := 0;
  72.     mGraphic3 := 0;
  73.     mBevel2 := 0;
  74.     mText2 := 0;
  75. end;
  76.  
  77. {----------}
  78. Function DModalRadiosData.GetRadioGroup2: SInt16;
  79. begin
  80.     GetRadioGroup2 := mRadioGroup2;
  81.  
  82.  
  83. end;
  84.  
  85. Procedure DModalRadiosData.SetRadioGroup2 (
  86.     inValue:        SInt16);
  87. begin
  88.     mRadioGroup2 := inValue;
  89.  
  90.  
  91.     SignalDataChanged (idRadioGroup2);
  92. end;
  93.  
  94. {----------}
  95. Function DModalRadiosData.GetGroup2: SInt16;
  96. begin
  97.     GetGroup2 := mGroup2;
  98.  
  99.  
  100. end;
  101.  
  102. Procedure DModalRadiosData.SetGroup2 (
  103.     inValue:        SInt16);
  104. begin
  105.     mGroup2 := inValue;
  106.  
  107.  
  108.     SignalDataChanged (idGroup2);
  109. end;
  110.  
  111. {----------}
  112. Function DModalRadiosData.GetGraphic3: SInt16;
  113. begin
  114.     GetGraphic3 := mGraphic3;
  115.  
  116.  
  117. end;
  118.  
  119. Procedure DModalRadiosData.SetGraphic3 (
  120.     inValue:        SInt16);
  121. begin
  122.     mGraphic3 := inValue;
  123.  
  124.  
  125.     SignalDataChanged (idGraphic3);
  126. end;
  127.  
  128. {----------}
  129. Function DModalRadiosData.GetBevel2: SInt16;
  130. begin
  131.     GetBevel2 := mBevel2;
  132.  
  133.  
  134. end;
  135.  
  136. Procedure DModalRadiosData.SetBevel2 (
  137.     inValue:        SInt16);
  138. begin
  139.     mBevel2 := inValue;
  140.  
  141.  
  142.     SignalDataChanged (idBevel2);
  143. end;
  144.  
  145. {----------}
  146. Function DModalRadiosData.GetText2: SInt16;
  147. begin
  148.     GetText2 := mText2;
  149.  
  150.  
  151. end;
  152.  
  153. Procedure DModalRadiosData.SetText2 (
  154.     inValue:        SInt16);
  155. begin
  156.     mText2 := inValue;
  157.  
  158.  
  159.     SignalDataChanged (idText2);
  160. end;
  161.  
  162. end.
  163.